RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**FILE**1D**REQUIR 


LLLLLLLLLL 
LLLLLLLLLL 


— 
et 
— oe 
— 


MMMmMmMmMmmMmmMmmmmmmcrn 
MMMmMmMmmmMmmmMmmmmmncn 
Pt eg Pd Pe ee et es 
Ot be se 


— ee 
—e 
_— ee 


— 
be be 
bad ho fae aw Gene bs 00 Bt be ed et Gees Ba 
a 
bs be 


Ge ne et hs tat bt be be es Ce es Pt be 


Ona ams 
a be 
bat be 
he 


vv 


MN 2 2 2 2 | QOOOCOOCOOO 


=O OONAUE WN (OOO NAUES WN HO OONOUS WN 


oo 


M—OOOWNAUESWN $C OODNOAUN EWN HO DONAUEWWN SH ODOONOUSWN 
oo 


Bee Se Se Se Ge Se Se SFOs Os Os Os Oe Oe Be Oe OF Se OOF SFOs SHOES) OSs Se Se Se SESE SESH ee HSH SH Se we 
aaa aa a a at at tt ot ht ot tt = 2 IA OOOOOCOO 


SF FAWN NAN IWIN NONPUNU PUNO 9 


the .REQUIRE directive 


<z 
Ow: 


14 
1b-Sep=1986 01:32: AX=11 Bliss-32 V4.0-74 Pa 1 
12-8 08- 1 3be 93:35:49 RUNOFF SREIREGUIR ot 60 ai 
ZTITLE "Process the .REQUIRE directive’ 


, 

MODULE REQUIR ( | 
IDENT = 'V04=000' 

%BL1SS32C, 


GODRESSING_AODE (EXTERNAL =LONG_RELAT IVE .NONEXTERNAL =LONG_RELATIVE) 


) = 
BEGIN 


SDSS ESSE SITS T TT TTT TTT TTT TTT TPP e Tri Tiere ic iret r i titi iti iii tiitititt 


'# COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
!® ALL RIGHTS RESERVED. 


at 
® 
& 
: ® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
te 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. . 
® 
* 
® 
® 
® 
® 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i eeeeeeeeeeeeeeeeeeeeeeee eee eeeeeeeeeeeeeeeeeteeeeeeneneeneneneeeneeeneneee 
' 


i¢¢ 

FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
: ABSTRACT: Processes the .REQUIRE command 

i 

: ENVIRONMENT: Transportable 

: AUTHOR: R.W.Friday CREATION DATE: July, 1978 
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M14 
- R 
vot-bbo innhhe - 1o788871882 93:59:49 «= Hainan Sag Sacaule acre heel V 
i? SBTTL ‘Revision History’ 
re 4 
1? rhs 
4 4 


007 AD00007 Keith Dawson 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 


% 
' 
MODIFIED BY: 
i 
i 
2 copyright dates. Changed require files to BLISS library. 
ie 
| 


oO 
oO 
> 
a tt 


ocess the .REQUIRE directive 1B-Sep-1984 91:36:19 AX-11 Bliss-32 V4.0-74 


a 


ule Level Declarations 


at kt ne ts ss ts 4 4H 
SSSLEASRANLSS 


RUNOFF .SRCJREQUIR.BLI; 
RSBTTL "Module Level Declarations’ 
i TABLE OF CONTENTS: 


' 
INCLUDE FILES: 


LIBRARY ‘NXPORT:XPORT'; ' XPORT Library 

REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
Z1F DSRPLUS ZTHEN 

here REQ:DPLLIB'; ! DSRPLUS BLISS Library 

” ers *REQ:DSRLIB'; ! DSR BLISS Library 

! 

' MACROS: 


0 
erm_t (rnfcode, str_descr) = 
BEGIN 


BIND 
temp = str_descr : $STR_DE 
aus srateeee. .temp CSTRSA_PO 


IPTOR (); 
ER], .temp CSTRSH_LENGTH], .semcod) 
' 


EQUATED SYMBOLS: 


EXTERNAL LITERAL 
rintes : UNSIGNED (8); 


OWN STORAGE: 


EXTERNAL REFERENCES: 


EXTERNAL 
flat : flag_table, : 
fs01 : fixed_string, !Temporary storage for file-spec 
ira : fixed_string, 


khar, 
ffname : SSTR_DESCRIPTOR (CLASS = DYNAMIC), ! Failing file's name 


semcod; 

EXTERNAL LITERAL wgefror messages 
rnfcor, ! Ww = Can't open required file é ng A: 
rnfloc, : I = on output page %P; on input Line 2C of page 21 of file ‘SF 
rnfmfs, : Wo = Missing or improperly delimited file spec: ‘'%S 
rnftntd, : Ww - Files nested ‘00 deep: ran 
rnftar; ! W = No text allowed after .REQUIRE command: ‘2S 


EXTERNAL ROUTINE 


3 


1 
FF 
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REQUIR Process the .REQUIRE directive 1-52 -1984 01:32:1 AX-11 Bliss-32 V4.0-742 Page 5 

areata REQ == main routine body 12-808-198e 94:59:29 LRUNOFF SRE REQUIR.BLI;1 . (4) 

> 121 48 1 XSBTTL "REQ == main routine body’ ; 
: ! ¢ 4 } GLOBAL ROUTINE req (handler_code) : NOVALUE = : 
: 126 af 1 144 : 
; : 2 b 38 FUNCTIONAL DESCRIPTION: : 
: 127 ei % This routine causes RUNOFF to take its input from the file specified as : 
> 128 Scop 1 the parameter to the .REQUIRE command. Spaces, tabs, and comments ; 
3 44 8 28 ! following the file-spec are ignored; other characters are not allowed. : 
: 131 0 38 | FORMAL PARAMETERS: 
; 138 6 60 1: Handler_code is passed by DOCM for conformity with other routines. ; 
: 136 0261 1! It is never used. ’ 
ia 0 96 1! : 
5; ise 0265 1 ! IMPLICIT INPUTS: None ; 
Toe 0264 1! Fs 
3s 38 0265 1 ! IMPLICIT OUTPUTS: : 
: 139 0266 1! s 
: 140 0267 1! FSO1 contains the file-spec of the file ‘’.REQUIREd'’. When CLH gets : 
3; (141 0268 1! called with the operation CLH_OPEN_REQ it expects to find the : 
3 126 O58 ! file-spec of the file to be opened in FSO1. ; 
: 144 0271 1 | ROUTINE VALUE: ; 
3 345 0272 1 ! COMPLETION CODES: None ; 
; 146 0275 1! : 
s 147 0274 1 ! SIDE EFFECTS: None : 
3; «6148 0275 1! 3 
3: 149 0276 1 !-- 3 
; 130 oste 1 F 
3s 151 78 § BEGIN : 
: 136 0279 F 
ee i ps0 2 L : 
: 138 t44 § result; : 
> 156 0583 r4 rskips (ira); ‘Skip spaces and tabs before file-spec. ; 
; 132 ue result = getqs (fs01); 'Get file-spec into FS0O1 : 
; 159 0 IF _ .result EQL getqs_normal ; 
: 160 0 a9 THEN sith 5 
3 19) OSe6 'Found a file~spec. : 
: 18 0290 'Skip trailing spaces, tabs, and comments before opening file. $ 
: 164 91 !The entire remainder of the record is sipped. f | : 
: 19? rskips (ira); !Skip trailing spaces and tabs | : 
: 189 94 IF .flgt Ccom_flag, flag_enabled) 'Skip single trailing comment | 3 
3 198 3 4 AND (.khar-EQL .flgt Ccom_flag, flag_character]) | : 
: 100 2 endcmt (); : 
; 1% 35 WHILE 1 DO ; 
ee fs 0 4 BEGIN 3 
3; «174 1 4 'Skip spaces and tabs ; 
3 102 § ? result = arec (); ; 
; 179 4 6 ; 


IF .result EQL end_of_string | 
| 
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Process the .REQUIRE directive 16-Sep-1984 01:32: AX-11 Bliss-32 V4.0-74 Page 6) 

00 REQ == main routine body 12-808-1 3b et ee RUNOFF .SRCJREQUIR.BLI; - (4) | 
; 86 d THEN x 1TLOOP ; 
; 180 07 4 ELSE : 
ett 0309. IF Lt EOL cf 
: -resu cf comment ’ 
; 188 8 10 4 THEN + 5 
: HE: 11 4 'Skip a comment. ; 
> 185 8 \¢ 4 endcmt () 5 
> 186 13 4 ELSE ; 
5 Ver 0314 4 ‘Something other than spaces, tabs, and comments . 
: «188 0315 4 ‘after the file=-spec. : 
; 189 8 1 4 'Note: comments of the form .COMMENT are IUtqgal ; 
; 190 17 4 ! here. If they are to be allowed, this is ; 
; Wi 0318 4 ! the place to put the code to check for them. ; 
3 135 t 34 2 BEGIN PF 
; 19 0 $9 erma (rnftar, true); : 
3 194 0321 5 RETURN Ps 
: 195 835$ 5 END 3 
; 196 032 ; END; : 
; 197 0324 5 
; 198 0325 3 result = clh (clh_push); ' Stack current input file : 
; 199 0326 3 3 
; 200 O35¢ IF .result NEQ clh_normal 3 
; 201 0325 ; THEN ; 
: $36 0329 'No room to stack current input file. ; 
3 Oo 0330 4 . 
; 204 0331 4 erma (rnfntd, false); ; 
; 205 Oae6 4 RE ; ; 
; 206 0333 4 E 3 
3; 207 0334 ELSE é 
3; 208 0335 3 
; 209 0336 ! Have ascertained that there is enough room for the control blocks : 
3 519 O3ee ; ! needed for the processing, so try to open the file. : 
Fs aE 0339 4 BEGIN : 
; 2 0340 4 3 
3 214 0341 4 ! CLH expects to find the file-spec in FS01. - 
3; 215 b3e$ 4 5 
3 26 0345 4 result = clh (clh_open_req); 3 
3 sic 0344 4 3 
; 218 0345 4 IF .result EQL clh_normal ! If CLH returns normal, 3 
3 $32 0346 4 THEN ' then we're done here. | F 
: 220 0347 4 RETURN 3 
; 1 rt 4 ! And aver we go!!!!! Po one the file stack is done : 
: § 49 & ' automatically by CLH, when it gets an end of file when F 
; Beet 4 ! it gets called to read the next input record. 3 
: $e 351 4 ELSE , 3 
; $2 B36 5 BEGIN ! File could not be opened, damnit! : 
3 | ° 
; der 0384 3 erm_t ( rnfcor, ffname); ' Can't open REQUIRE file — | : 
3 8 b322 5 clh” (clh_pop); ' Continue with previous file. 3 
3 ; $25 ; erm (rnfloc, 0, 0); ! Identify that files name : 
: $31 58 RETURN; | : 
; 35 59 4 END; | : 
3 ; 60 ; END; 3 
s 4 361 END Py 
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cess the .REQUIRE directive 1g -1984 01:32:10 AX-11 Bliss-32 V4.0-74 
== main routine body 12-88-1387 04:59:24 AUNOPF SRE TRESULR OL f0 “Se 


vo4-000 


ELSE 
shia >} Fetes or one not properly delimited. 
see (rnfmfs, true); 


1 END; 'End of REQ 

TLE REQUIR Process the .REQUIRE directive 
ENT \V04-000\ 

TRN RINTES, FLGT, FSO1 

TRN RA > FFNA 

TRN SEMCOD, RNFCOR, RNFLOC 


TRN RNFMFS, RNFNTD, RNFTAR 


XTRN AREC, €LH, ENDCMT 
TEXTRN GETOS, RSKIPS 
.PSECT $CODE$,NOWRT,2 


003¢ 00000 .ENTRY REQ, Save R2,R3,R4,R5 : 0249 : 

55 000000006 EF 9 00002 MOVAB IRA : ; 

54 000000006 EF 9€ 00009 MOVAB SKIPS, R4 : ; 

53 000000006 EE 9E 90019 MOVAB LH, R3 : ; 

5 DD 00017 PUSHL R5 + 0283 ; 

4 01 FB 00019 ALLS #1, RSKIPS 3 $ 

000000006 EF 9F 0001C PUSHAB FSO1 + 0284 ; 

000000006 EF 01 FB 00022 CALLS #1, GETQS : F 
52 30 00 0029 MOVL RO. RESULT : : 

03 13 0002c BEQL 1$ > 0286 : 

0097 31 0002E BRW : : 

55 DD 00031 1$: PUSHL 5 : 0292 ; 

64 01 FB 00035 CALLS #1, RSKIPS : : 

14 000000006 EF £9 000 é BLBC FLGT+56, 3$ + 0294 : 

000000006 EF 000000006 EF D1 0003 CMPL = KHAR, ~FLGT+128 + 0295 ; 
07 12 00048 BNEQ : : 

000000006 EF 00 FB 0004A 28: CALLS #0, ENDCMT : 0297 : 
000000006 EE 00 FB 0051 3$: CALLS #0, AREC : 0302 : 
2 50 D 0098 MOVL RO, RESULT : : 

01 52 01 00058 CMPL RESULT, #1 + 0304 ; 

OF 13 0005 BEQL : ; 

04 3 D1 0006 CMPL = RESULT, #4 + 0309 : 

F 13 906 BEQL = -2$ : : 

1 od 0 6 PUSHL #1 : 0320 : 

000000006 8F DD 00067 PUSHL #RNFTAR : : 

1 11 0006D BRB 7$ : : 

7 DD O06F 4$: PUSHL #7 > 0325 : 

63 1 FB 0071 CALLS #1, CLH : : 

52 9 D 9074 MOVL RO. RESULT : : 

01 52 01 00077 CMPL RESULT, #1 > 0327 : 

OA 13 OOO7A BEQL «6=sSS$ : ; 

E p4 0007C CLRL © =(SP) > 0331 : 

000000006 8F DD 7E PUSHL #RNFNTD : : 

4A 1 BRB 7$ : ; 

09 DD 5$ PUSHL #9 > 0343 : 

63 1 FB 000 CALLS #1, CLH : F 


F 15 
REQUIR Process the .REQUIRE directive 16-Sep-1 AX-11 Bliss-32 V4.0-742 P 

W54-000 REQ =- main routine body beets rae Me ie ee bg Pe a age 3 
5 DO 00088 MOVL RO RESULT ; ; 
a i a oss) |i 
90000 06 EF pd 009 PUSHL SEM + 0354 : 
7E 000000006 EF 3¢ 000 MOVZWL TEMP, -(SP) : ; 
00 00 0G F DD 0 AO PUSHL TE : ; 
00000006 &F DD 000A6 PUSHL #RNFCOR : ; 
000000006 EF 4 FB OOOA CALLS #4, ERME : : 
8 DD 0083 PUSHL #8 + 0355 : 
63 Ot FB 000B CALLS #1, CLH : : 
E 7C 00088 CLRO = § : 0356 ; 
000000006 i DD OBA PUSHL #RNFLOC : ; 
000000006 EF 3 FB 000C0 CALLS #3, : ; 
04 000¢7 RET : 0339 ; 
01 DD 000C8 6S: PUSHL #1 > 0365 ; 
000000006 8F DD OO0CA PUSHL #RNFMFS : ; 
000000006 EF 02 FB 00000 7$: CALLS #2, ERMA : F 
04 00007 8$: RET + 0367 : 
; Routine Size: 216 bytes, Routine Base: S$CODE$ + 0000 3 
> 261 0368 1 : 
; 242 0369 1 END ‘End of module 3 
3 243 0370 0 ELUDOM : 
; PSECT SUMMARY ; 
: Name Bytes Attributes 3 
; SCODES 216 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 3 
H Library Statistics 3 
: eoocorce Symbols =------- Pages Processing : 
s File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 11 1 252 00:00.1 : 
; 1$255$DUA28: CRUNOFF .SRCIDSRLIB.L32;1 124 14 1 86 00:00.2 : 
; COMMAND QUALIFIERS 3 


: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:REQUIR/OBJ=OBJ$:REQUIR MSRC$:REQUIR/UPDATE=(ENHS$:REQUIR) 


vO4~000 REG's= "main routine body ite w$ep-1986 3:09:51 RUNOFF eSReSReguIR- OL +1 sn 


0 

: + 0 data bytes 
Run Time: 8 
Elapsed iy id 


$68" 
Lexemes/CPU-Min: 2301 

emery SY 4 pages 
Compi ation Compiete 


sit, : 
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